home *** CD-ROM | disk | FTP | other *** search
/ Disc Station 14 / Disc Station Vol 14.BIN / drivers / canopus / 3dv95_ut.lzh / SETUP.MS_ / SETUP.MS
Text File  |  1996-10-14  |  31KB  |  924 lines
  1. '************************************************
  2. '-- setup.mst --
  3. 'Power Window Application Setup script
  4. 'Copyright (C) 1996 CANOPUS Co.,Ltd. All rights reserved.
  5. '************************************************
  6.  
  7. '$INCLUDE 'setupapi.inc'
  8. '$INCLUDE 'msdetect.inc' 
  9. '$INCLUDE 'msregdb.inc'
  10.  
  11. ''Dialog ID's
  12. CONST    WELCOMEV        =200
  13. CONST    WELCOMEVUS        =201
  14. CONST    ASKQUITV        =400
  15. CONST    ASKQUITVUS        =401
  16. CONST    OPTIONSV        =600
  17. CONST    OPTIONSVUS        =601
  18. CONST    PWBOARD            =700
  19. CONST    PWBOARDUS        =701
  20. CONST    DESTPATHW95        =1001
  21. CONST    DESTPATHUSW95    =1003
  22. CONST    EXITSUCCESSW95    =1101
  23. CONST    EXITSUCCESSUSW95=1103
  24. CONST    EXITQUIT        =1200
  25. CONST    EXITQUITUS        =1201
  26. CONST    EXITFAILURE        =1300
  27. CONST    EXITFAILUREUS    =1301
  28. CONST    EXITCHECK        =1400
  29. CONST    EXITCHECKUS        =1401
  30. CONST    DESTINSTALL        =1500
  31. CONST    DESTINSTALLUS    =1501
  32. CONST    BADPATHW95        =2001
  33. CONST    BADPATHUSW95    =2003
  34. CONST    POWERERROR        =2100
  35. CONST    POWERERRORUS    =2101
  36. CONST    DISKERROR        =2200
  37. CONST    DISKERRORUS        =2201
  38.  
  39. ''Defalut Setting
  40. CONST    TRUE    =1
  41. CONST    FALSE    =0
  42.  
  43. ''CustInst list
  44. CONST     TOTALKBOX    =5
  45. CONST     CHECKBOX1    =1
  46. CONST     CHECKBOX2    =2
  47. CONST     CHECKBOX3    =3
  48. CONST     CHECKBOX4    =4
  49. CONST     CHECKBOX5    =5
  50.  
  51. '' Users Area
  52. GLOBAL    DEST$                    '' Default Dir
  53. GLOBAL    WINDRIVE$                '' Windows Dir
  54. GLOBAL    GROUP$                    '' Group Name
  55. GLOBAL    CUIDLL$                    '' User DLL File Name
  56. GLOBAL    CHECKSTATES$            '' Check Box Data
  57. GLOBAL    JPMODE AS INTEGER         '' Japanese / English Mode
  58. GLOBAL    WINMODE AS INTEGER         '' Windows Version
  59. GLOBAL    OPBOARD AS INTEGER         '' Option Board
  60. GLOBAL    MPEGFLG AS INTEGER         '' MPEG Board   TRUE:HARD MPEG FALSE:SOFT MPEG
  61. GLOBAL    VIDEOFLG AS INTEGER        '' Video Board  TRUE:YES       FALSE:NO
  62. GLOBAL    VIEWERFLG AS INTEGER    '' Video Viewer TRUE:YES       FALSE:NO
  63. GLOBAL    TUNERFLG AS INTEGER        '' TV Tuner     TRUE:YES       FALSE:NO
  64. GLOBAL    MPEGDRV AS INTEGER        '' MPEG Driver  TRUE:YES       FALSE:NO
  65. GLOBAL    SPFLG AS INTEGER        '' Speed        TRUE:YES       FALSE:NO
  66. GLOBAL    CAPFLG AS INTEGER        '' Capture      TRUE:YES       FALSE:NO
  67. GLOBAL    DOCFLG AS INTEGER        '' Manual       TRUE:YES       FALSE:NO
  68.  
  69. ''CustInst list symbol names
  70. DECLARE SUB         Install
  71. DECLARE SUB         DefaultLoad
  72. DECLARE FUNCTION    MakePath (szDir$, szFile$) AS STRING
  73. DECLARE    SUB         IniSetAndBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  74. DECLARE    SUB         IniSetAndBakupChk (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  75. DECLARE    SUB         IniSetAndStandBakup (szFile$, szSec$, szKey$, szVal$, szSecOp$)
  76. DECLARE    SUB         UninstallFileCounter (szFile$, szSec$, szKey$, szVal$)
  77. DECLARE FUNCTION    CheckPowerWindow LIB "mscuistf.dll" () AS INTEGER
  78. DECLARE FUNCTION    GetPowerWindowDir LIB "mscuistf.dll" () AS INTEGER
  79. DECLARE FUNCTION    GetWindowsVer LIB "mscuistf.dll" () AS INTEGER
  80. DECLARE FUNCTION    ExitWindowsExec  LIB "User" (Exec$, Param$) AS INTEGER
  81. DECLARE FUNCTION    GetMetrics LIB "mscuistf.dll" () AS INTEGER
  82.  
  83.  
  84. ' #[ INIT ]
  85. INIT:
  86.     CUIDLL$ = "mscuistf.dll"
  87.  
  88.     WINMODE = GetWindowsVer()
  89.     JPMODE = GetMetrics()
  90.  
  91.     SetWindowSize 3
  92.     SetBitmap CUIDLL$, 1
  93.     SetTitle "Power Window Application Setup"
  94.  
  95.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  96.     IF szInf$ = "" THEN
  97.         szInf$ = GetSymbolValue("STF_CWDDIR") + "setup.inf"
  98.     END IF
  99.     ReadInfFile szInf$
  100.  
  101.     IF WINMODE = FALSE THEN
  102.         IF JPMODE <> 0 THEN
  103.             i% = DoMsgBox("Windows 95 ÉΩùpé╠âAâvâèâPü[âVâçâôé╠é╜é▀üAé▒é╠è┬ï½é╔é═âCâôâXâgü[âïé┼é½é▄é╣é±üB", "Power Window Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  104.         ELSE
  105.             i% = DoMsgBox("Please install Windows 95 before installing Power Window Application.", "Power Window Application Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  106.         END IF
  107.         END
  108.     END IF
  109.  
  110.     DefaultLoad
  111.  
  112. WELCOME:
  113.     IF JPMODE <> 0 THEN
  114.         dlg% = WELCOMEV
  115.     ELSE
  116.         dlg% = WELCOMEVUS
  117.     END IF
  118.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  119.     IF sz$ = "CONTINUE" THEN
  120.         UIPop 1
  121.     ELSE
  122.            GOSUB ASKQUITJMP
  123.         GOTO WELCOME
  124.     END IF
  125.  
  126. BOARDCHECKSTART:
  127.     CHECKSTATES$ = "CheckTool"
  128.     RemoveSymbol CHECKSTATES$
  129.     RemoveSymbol "OptionsGreyed"
  130.     RemoveSymbol "OptionsDelete"
  131.     RemoveSymbol "OptionsOutput"
  132.  
  133.     IF OPBOARD = 1 THEN
  134.         AddListItem "OptionsOutput", "1"
  135.         AddListItem "OptionsDelete", "2"
  136.     ELSEIF OPBOARD = 2 THEN
  137.         AddListItem "OptionsDelete", "1"
  138.         AddListItem "OptionsOutput", "2"
  139.     ELSEIF OPBOARD = 3 THEN
  140.         AddListItem "OptionsOutput", "1"
  141.         AddListItem "OptionsOutput", "2"
  142.     END IF
  143.  
  144.     IF VIDEOFLG = FALSE THEN
  145.         AddListItem "CheckTool", "OFF"
  146.     ELSE
  147.         AddListItem "CheckTool", "ON"
  148.     END IF
  149.  
  150.     IF MPEGFLG = FALSE THEN
  151.         AddListItem "CheckTool", "OFF"
  152.     ELSE
  153.         AddListItem "CheckTool", "ON"
  154.     END IF
  155.  
  156. BOARDCHECKLOOP:
  157.     IF OPBOARD = 0 THEN
  158.         GOTO CHECKCUTSTART
  159.     END IF
  160.  
  161.     IF JPMODE <> 0 THEN
  162.         dlg% = PWBOARD
  163.     ELSE
  164.         dlg% = PWBOARDUS
  165.     END IF
  166.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheck0DlgProc", 0, "")
  167.     IF sz$ = "CONTINUE" THEN
  168.         IF GetListItem("CheckTool", 1) = "OFF" THEN
  169.             VIDEOFLG=FALSE
  170.         ELSE
  171.             VIDEOFLG=TRUE
  172.         END IF
  173.         IF GetListItem("CheckTool", 2) = "OFF" THEN
  174.             MPEGFLG=FALSE
  175.         ELSE
  176.             MPEGFLG=TRUE
  177.         END IF
  178.         UIPop 1
  179.         GOTO CHECKCUTSTART
  180.     ELSE
  181.         GOSUB ASKQUITJMP
  182.         GOTO BOARDCHECKLOOP
  183.     END IF
  184.  
  185. CHECKCUTSTART:
  186.     CHECKSTATES$ = "CheckItemsIn"
  187.     RemoveSymbol CHECKSTATES$
  188.     RemoveSymbol "OptionsGreyed"
  189.     RemoveSymbol "OptionsDelete"
  190.     RemoveSymbol "OptionsOutput"
  191.     IF JPMODE <> 0 THEN
  192.         AddListItem CHECKSTATES$, "ON"
  193.     ELSE
  194.         AddListItem CHECKSTATES$, "OFF"
  195.         AddListItem "OptionsGreyed", "1"
  196.     END IF
  197.  
  198.     AddListItem CHECKSTATES$, "ON"
  199.     IF MPEGFLG = TRUE THEN
  200.         AddListItem CHECKSTATES$, "ON"
  201.     ELSE
  202.         AddListItem CHECKSTATES$, "ON"
  203.     END IF
  204.     IF VIDEOFLG = TRUE THEN
  205.         IF VIEWERFLG = TRUE THEN
  206.             AddListItem CHECKSTATES$, "ON"
  207.             AddListItem "OptionsOutput", "4"
  208.         ELSE
  209.             AddListItem CHECKSTATES$, "OFF"
  210.             AddListItem "OptionsDelete", "4"
  211.         END IF
  212.         IF TUNERFLG = TRUE THEN
  213.             AddListItem CHECKSTATES$, "ON"
  214.             AddListItem "OptionsOutput", "5"
  215.         ELSE
  216.             AddListItem CHECKSTATES$, "OFF"
  217.             AddListItem "OptionsDelete", "5"
  218.         END IF
  219.     ELSE
  220.         AddListItem CHECKSTATES$, "OFF"
  221.         AddListItem "OptionsDelete", "4"
  222.         AddListItem CHECKSTATES$, "OFF"
  223.         AddListItem "OptionsDelete", "5"
  224.     END IF
  225.  
  226. CHECKCUTLOOP:
  227.     IF JPMODE <> 0 THEN
  228.         dlg% = OPTIONSV
  229.     ELSE
  230.         dlg% = OPTIONSVUS
  231.     END IF
  232.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FCheckDlgProc", 0, "")
  233.     IF sz$ = "CONTINUE" THEN
  234.         push% = 0
  235.         CHECKSTATES$ = "CheckItemsOut"
  236.         FOR i% = 1 TO TOTALKBOX STEP 1
  237.             IF GetListItem(CHECKSTATES$, i%) = "ON" THEN
  238.                 push% = 1
  239.             END IF
  240.         NEXT i%
  241.         IF push% = 0 THEN
  242.             IF JPMODE <> 0 THEN
  243.                 dlg% = EXITCHECK
  244.             ELSE
  245.                 dlg% = EXITCHECKUS
  246.             END IF
  247.             sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  248.             UIPop 1
  249.             GOTO CHECKCUTLOOP
  250.         END IF
  251.         UIPop 1
  252.         GOTO GETPATH
  253.     ELSEIF sz$ = "BACK" THEN
  254.         UIPop 1
  255.         IF OPBOARD = 0 THEN
  256.             GOTO WELCOME
  257.         ELSE
  258.             GOTO BOARDCHECKSTART
  259.         END IF
  260.     ELSE
  261.         GOSUB ASKQUITJMP
  262.         GOTO CHECKCUTLOOP
  263.     END IF
  264.  
  265. GETPATH:
  266.     SetSymbolValue "EditTextIn", DEST$
  267.     SetSymbolValue "EditFocus", "END"
  268. GETPATHL1:
  269.     IF JPMODE <> 0 THEN
  270.         dlg% = DESTPATHW95
  271.     ELSE
  272.         dlg% = DESTPATHUSW95
  273.     END IF
  274.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FEditDlgProc", 0, "")
  275.     DEST$ = GetSymbolValue("EditTextOut")
  276.     IF sz$ = "CONTINUE" THEN
  277.         IF IsDirWritable(DEST$) = 0 THEN
  278.             GOSUB INPUTPATH
  279.             GOTO GETPATHL1
  280.         END IF
  281.         UIPop 1
  282.     ELSEIF sz$ = "REACTIVATE" THEN
  283.         GOTO GETPATHL1
  284.     ELSEIF sz$ = "BACK" THEN
  285.         UIPop 1
  286.         GOTO CHECKCUTSTART
  287.     ELSE
  288.         GOSUB ASKQUITJMP
  289.         GOTO GETPATHL1
  290.     END IF
  291.  
  292. INST:
  293.     IF JPMODE <> 0 THEN
  294.         dlg% = DESTINSTALL
  295.     ELSE
  296.         dlg% = DESTINSTALLUS
  297.     END IF
  298.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  299.     IF sz$ = "CONTINUE" THEN
  300.         UIPop 1
  301.     ELSEIF sz$ = "BACK" THEN
  302.         UIPop 1
  303.         GOTO GETPATH
  304.     ELSE
  305.         GOSUB ASKQUITJMP
  306.         GOTO INST
  307.     END IF
  308.  
  309.     Install
  310.  
  311. QUIT:
  312.     ON ERROR GOTO ERRQUIT
  313.  
  314.     IF ERR = 0 THEN
  315.         IF JPMODE <> 0 THEN
  316.             dlg% = EXITSUCCESSW95
  317.         ELSE
  318.             dlg% = EXITSUCCESSUSW95
  319.         END IF
  320.     ELSEIF ERR = STFQUIT THEN
  321.         IF JPMODE <> 0 THEN
  322.             dlg% = EXITQUIT
  323.         ELSE
  324.             dlg% = EXITQUITUS
  325.         END IF
  326.     ELSE
  327.         IF JPMODE <> 0 THEN
  328.             dlg% = EXITFAILURE
  329.         ELSE
  330.             dlg% = EXITFAILUREUS
  331.         END IF
  332.     END IF
  333. QUITL1:
  334.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  335.     IF sz$ = "CONTINUE" THEN
  336.         UIP